perm filename CYCOMA.LAP[4,LMM] blob sn#037492 filedate 1973-05-06 generic text, type T, neo UTF8
(DEFPROP CYCOMAFNS (CYCOMAFNS MAXLIST TWICE CARLIST CDRLIST LCARLIST LCDRLIST DIFF PLUSLIST LMASSOC NUMPARTITION→
S CLPARTITIONS CLPARTS CL=PARTS CLDIFF CLCOUNT CLPARTITIONSN CLCREATE CLINSERT CLEXPAND GENRAD GENRADS GENRADLIS→
T GENRADLIST1 GROUPRADS GROUPRADS1 VALENCE GENMOL NUMPARTITIONS* GROUPBY FVPARTITION1 FVPART1 MINLOOPS MAXLOOPS)→
 VALUE) 

(LAP MAXLIST SUBR) 
       (PUSH P 1.) 
       (MOVEI D (QUOTE -99999.) S) 
       (PUSH P D) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (MOVE 1. -1. P) 
       (JUMPE 1. TAG4) 
       (HLRZ@ 1. -1. P) 
       (MOVE 2. -2. P) 
       (MOVEM 1. 0. P) 
       (CALL 2. (E *MAX) S) 
       (MOVEM 1. -2. P) 
 TAG2 
 TAG3  (HRRZ@ 1. -1. P) 
       (MOVEM 1. -1. P) 
       (JRST 0. TAG1) 
 TAG4  (MOVE 1. -2. P) 
       (SUB P (C 4. 0. 4. 0.)) 
       (POPJ P) 
       NIL 

(LAP TWICE SUBR) 
       (MOVE 2. 1.) 
       (JCALL 2. (E *PLUS) S) 
       NIL 

(LAP CARLIST SUBR) 
       (PUSH P 1.) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (MOVE 1. -2. P) 
       (JUMPE 1. TAG4) 
       (HLRZ@ 1. -2. P) 
       (MOVEM 1. -1. P) 
       (PUSH P (C 0. 0. TAG10 0.)) 
       (PUSH P -1. P) 
       (HLRZ@ 1. 1.) 
       (CALL 1. (E NCONS) S) 
       (PUSH P 1.) 
       (MOVNI 6. 2.) 
       (JCALL 14. (E NCONC) S) 
 TAG10 (MOVEM 1. 0. P) 
 TAG2 
 TAG3  (HRRZ@ 1. -2. P) 
       (MOVEM 1. -2. P) 
       (JRST 0. TAG1) 
 TAG4  (MOVE 1. 0. P) 
       (SUB P (C 4. 0. 4. 0.)) 
       (POPJ P) 
       NIL 

(LAP CDRLIST SUBR) 
       (PUSH P 1.) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (MOVE 1. -2. P) 
       (JUMPE 1. TAG4) 
       (HLRZ@ 1. -2. P) 
       (MOVEM 1. -1. P) 
       (PUSH P (C 0. 0. TAG10 0.)) 
       (PUSH P -1. P) 
       (HRRZ@ 1. 1.) 
       (CALL 1. (E NCONS) S) 
       (PUSH P 1.) 
       (MOVNI 6. 2.) 
       (JCALL 14. (E NCONC) S) 
 TAG10 (MOVEM 1. 0. P) 
 TAG2 
 TAG3  (HRRZ@ 1. -2. P) 
       (MOVEM 1. -2. P) 
       (JRST 0. TAG1) 
 TAG4  (MOVE 1. 0. P) 
       (SUB P (C 4. 0. 4. 0.)) 
       (POPJ P) 
       NIL 

(LAP LCARLIST SUBR) 
       (PUSH P 1.) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (MOVE 1. -2. P) 
       (JUMPE 1. TAG4) 
       (HLRZ@ 1. -2. P) 
       (MOVEM 1. -1. P) 
       (PUSH P (C 0. 0. TAG10 0.)) 
       (PUSH P -1. P) 
       (CALL 1. (E CARLIST) S) 
       (CALL 1. (E NCONS) S) 
       (PUSH P 1.) 
       (MOVNI 6. 2.) 
       (JCALL 14. (E NCONC) S) 
 TAG10 (MOVEM 1. 0. P) 
 TAG2 
 TAG3  (HRRZ@ 1. -2. P) 
       (MOVEM 1. -2. P) 
       (JRST 0. TAG1) 
 TAG4  (MOVE 1. 0. P) 
       (SUB P (C 4. 0. 4. 0.)) 
       (POPJ P) 
       NIL 

(LAP LCDRLIST SUBR) 
       (PUSH P 1.) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (MOVE 1. -2. P) 
       (JUMPE 1. TAG4) 
       (HLRZ@ 1. -2. P) 
       (MOVEM 1. -1. P) 
       (PUSH P (C 0. 0. TAG10 0.)) 
       (PUSH P -1. P) 
       (CALL 1. (E CDRLIST) S) 
       (CALL 1. (E NCONS) S) 
       (PUSH P 1.) 
       (MOVNI 6. 2.) 
       (JCALL 14. (E NCONC) S) 
 TAG10 (MOVEM 1. 0. P) 
 TAG2 
 TAG3  (HRRZ@ 1. -2. P) 
       (MOVEM 1. -2. P) 
       (JRST 0. TAG1) 
 TAG4  (MOVE 1. 0. P) 
       (SUB P (C 4. 0. 4. 0.)) 
       (POPJ P) 
       NIL 

(LAP DIFF SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (MOVE 1. -2. P) 
       (JUMPE 1. TAG4) 
       (HLRZ@ 1. -2. P) 
       (MOVEM 1. -1. P) 
       (MOVE 2. -3. P) 
       (CALL 2. (E MEMBER) S) 
       (JUMPN 1. TAG3) 
       (MOVE 2. 0. P) 
       (MOVE 1. -1. P) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. 0. P) 
 TAG2 
 TAG3  (HRRZ@ 1. -2. P) 
       (MOVEM 1. -2. P) 
       (JRST 0. TAG1) 
 TAG4  (MOVE 1. 0. P) 
       (SUB P (C 5. 0. 5. 0.)) 
       (POPJ P) 
       NIL 

(LAP PLUSLIST SUBR) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE 0.) 0.)) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (MOVE 1. -1. P) 
       (JUMPE 1. TAG4) 
       (HLRZ@ 1. -1. P) 
       (MOVE 2. -2. P) 
       (MOVEM 1. 0. P) 
       (CALL 2. (E *PLUS) S) 
       (MOVEM 1. -2. P) 
 TAG2 
 TAG3  (HRRZ@ 1. -1. P) 
       (MOVEM 1. -1. P) 
       (JRST 0. TAG1) 
 TAG4  (MOVE 1. -2. P) 
       (SUB P (C 4. 0. 4. 0.)) 
       (POPJ P) 
       NIL 

(LAP LMASSOC SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (PUSH P 3.) 
       (PUSH P 2.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (MOVE 1. -2. P) 
       (JUMPE 1. TAG4) 
       (HLRZ@ 1. -2. P) 
       (MOVEM 1. -1. P) 
       (MOVE 2. -5. P) 
       (HLRZ@ 1. 1.) 
       (CALL 2. (E EQUAL) S) 
       (JUMPE 1. TAG11) 
       (HRRZ@ 1. -1. P) 
       (MOVEM 1. -3. P) 
       (JRST 0. TAG5) 
 TAG11 
 TAG2 
 TAG3  (HRRZ@ 1. -2. P) 
       (MOVEM 1. -2. P) 
       (JRST 0. TAG1) 
 TAG4 
 TAG5  (MOVE 1. -3. P) 
       (SUB P (C 6. 0. 6. 0.)) 
       (POPJ P) 
       NIL 

(LAP NUMPARTITIONS SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (PUSH P 3.) 
       (PUSH P 4.) 
       (MOVEI 2. (QUOTE 1.)) 
       (MOVE 1. -2. P) 
       (CALL 2. (E EQUAL) S) 
       (JUMPE 1. TAG9) 
       (MOVE 2. -3. P) 
       (MOVE 1. -1. P) 
       (CALL 2. (E *GREAT) S) 
       (JUMPN 1. TAG13) 
       (MOVE 2. -3. P) 
       (MOVE 1. 0. P) 
       (CALL 2. (E *LESS) S) 
       (JUMPE 1. TAG11) 
 TAG13 (MOVEI 1. (QUOTE NIL)) 
       (JRST 0. TAG10) 
 TAG11 (MOVE 1. -3. P) 
       (CALL 1. (E NCONS) S) 
       (CALL 1. (E NCONS) S) 
 TAG10 (JRST 0. TAG8) 
 TAG9  (MOVE 2. -2. P) 
       (MOVE 1. -3. P) 
       (CALL 2. (E *QUO) S) 
       (MOVE 2. 0. P) 
       (CALL 2. (E *MIN) S) 
       (PUSH P 1.) 
       (MOVE 1. -3. P) 
       (CALL 1. (E SUB1) S) 
       (MOVE 2. -1. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. 1.) 
       (MOVE 1. -4. P) 
       (CALL 2. (E *DIF) S) 
       (MOVE 2. -2. P) 
       (CALL 2. (E *MAX) S) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (MOVE 2. -4. P) 
       (MOVE 1. -3. P) 
       (CALL 2. (E *GREAT) S) 
       (JUMPN 1. TAG7) 
       (MOVE 2. -3. P) 
       (MOVE 1. -8. P) 
       (CALL 2. (E *DIF) S) 
       (PUSH P 1.) 
       (MOVE 1. -8. P) 
       (CALL 1. (E SUB1) S) 
       (MOVE 4. -6. P) 
       (MOVE 3. -4. P) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 4. (E NUMPARTITIONS) S) 
       (MOVEM 1. -1. P) 
 TAG2  (MOVE 1. -1. P) 
       (JUMPE 1. TAG5) 
       (HLRZ@ 1. -1. P) 
       (MOVEM 1. -2. P) 
       (PUSH P (C 0. 0. TAG24 0.)) 
       (PUSH P -1. P) 
       (MOVE 2. -5. P) 
       (CALL 2. (E XCONS) S) 
       (CALL 1. (E NCONS) S) 
       (PUSH P 1.) 
       (MOVNI 6. 2.) 
       (JCALL 14. (E NCONC) S) 
 TAG24 (MOVEM 1. 0. P) 
 TAG3 
 TAG4  (HRRZ@ 1. -1. P) 
       (MOVEM 1. -1. P) 
       (JRST 0. TAG2) 
 TAG5 
 TAG6  (MOVEI 2. (QUOTE 1.)) 
       (MOVE 1. -3. P) 
       (CALL 2. (E *PLUS) S) 
       (MOVEM 1. -3. P) 
       (JRST 0. TAG1) 
 TAG7  (MOVE 1. 0. P) 
       (SUB P (C 5. 0. 5. 0.)) 
 TAG8  (SUB P (C 4. 0. 4. 0.)) 
       (POPJ P) 
       NIL 

(LAP CLPARTITIONS SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (JUMPN 2. TAG25) 
       (MOVEI 1. (QUOTE NIL)) 
       (CALL 1. (E NCONS) S) 
       (JRST 0. TAG24) 
 TAG25 (HRRZ@ 1. 2.) 
       (JUMPN 1. TAG27) 
       (MOVE 1. -1. P) 
       (CALL 1. (E NCONS) S) 
       (CALL 1. (E NCONS) S) 
       (JRST 0. TAG24) 
 TAG27 (HLRZ@ 1. 2.) 
       (CAIE 1. (QUOTE 0.)) 
       (JRST 0. TAG29) 
       (HRRZ@ 2. 2.) 
       (MOVE 1. -1. P) 
       (CALL 2. (E CLPARTITIONS) S) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (MOVE 1. -3. P) 
       (JUMPE 1. TAG34) 
       (HLRZ@ 1. -3. P) 
       (MOVEI 2. (QUOTE NIL)) 
       (CALL 2. (E XCONS) S) 
       (CALL 1. (E NCONS) S) 
       (MOVEM 1. -2. P) 
       (MOVE 1. -1. P) 
       (JUMPE 1. TAG38) 
       (MOVE 1. -2. P) 
       (HRRM@ 1. -1. P) 
       (HRRZ@ 2. -1. P) 
       (JRST 0. TAG37) 
 TAG38 (MOVE 2. -2. P) 
       (MOVEM 2. 0. P) 
 TAG37 (HRRZ@ 1. -3. P) 
       (MOVEM 1. -3. P) 
       (MOVEM 2. -1. P) 
       (JRST 0. TAG1) 
 TAG34 (MOVE 1. 0. P) 
       (SUB P (C 4. 0. 4. 0.)) 
       (JRST 0. TAG24) 
 TAG29 (HRRZ@ 2. 2.) 
       (HLRZ@ 2. 2.) 
       (HLRZ@ 1. 0. P) 
       (CALL 2. (E EQUAL) S) 
       (JUMPE 1. TAG41) 
       (PUSH P (C 0. 0. (QUOTE 1.) 0.)) 
       (HLRZ@ 1. -1. P) 
       (PUSH P 1.) 
       (HRRZ@ 1. -2. P) 
       (MOVEM 1. -2. P) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG2  (MOVE 1. -3. P) 
       (JUMPE 1. TAG5) 
       (MOVE 2. -1. P) 
       (HLRZ@ 1. -3. P) 
       (CALL 2. (E EQUAL) S) 
       (JUMPE 1. TAG5) 
       (MOVE 1. -2. P) 
       (CALL 1. (E ADD1) S) 
       (MOVEM 1. -2. P) 
 TAG3 
 TAG4  (HRRZ@ 1. -3. P) 
       (MOVEM 1. -3. P) 
       (JRST 0. TAG2) 
 TAG5  (SUB P (C 1. 0. 1. 0.)) 
       (MOVE 1. -2. P) 
       (JUMPN 1. TAG53) 
       (MOVE 3. 0. P) 
       (MOVE 2. -1. P) 
       (MOVE 1. -3. P) 
       (CALL 3. (E CL=PARTS) S) 
       (JRST 0. TAG42) 
 TAG53 (MOVE 2. 0. P) 
       (MOVE 1. -1. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. 1.) 
       (MOVE 1. -3. P) 
       (CALL 2. (E CLPARTS) S) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG6  (MOVE 1. -7. P) 
       (JUMPE 1. TAG16) 
       (HLRZ@ 1. -7. P) 
       (MOVE 2. 1.) 
       (MOVEM 1. -6. P) 
       (MOVE 1. -11. P) 
       (CALL 2. (E CLDIFF) S) 
       (MOVE 2. -10. P) 
       (CALL 2. (E CLPARTITIONS) S) 
       (MOVE 3. -8. P) 
       (MOVE 2. -9. P) 
       (MOVEM 1. -5. P) 
       (MOVE 1. -6. P) 
       (CALL 3. (E CL=PARTS) S) 
       (MOVEM 1. -3. P) 
 TAG7  (MOVE 1. -3. P) 
       (JUMPE 1. TAG13) 
       (HLRZ@ 1. -3. P) 
       (MOVE 2. -5. P) 
       (MOVEM 2. -1. P) 
       (MOVEM 1. -4. P) 
 TAG8  (MOVE 1. -1. P) 
       (JUMPE 1. TAG11) 
       (HLRZ@ 1. -1. P) 
       (MOVE 2. 1.) 
       (MOVEM 1. -2. P) 
       (MOVE 1. -4. P) 
       (CALL 2. (E *APPEND) S) 
       (MOVE 2. 0. P) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. 0. P) 
 TAG9 
 TAG10 (HRRZ@ 1. -1. P) 
       (MOVEM 1. -1. P) 
       (JRST 0. TAG8) 
 TAG11 
 TAG12 (HRRZ@ 1. -3. P) 
       (MOVEM 1. -3. P) 
       (JRST 0. TAG7) 
 TAG13 
 TAG14 
 TAG15 (HRRZ@ 1. -7. P) 
       (MOVEM 1. -7. P) 
       (JRST 0. TAG6) 
 TAG16 (MOVE 1. 0. P) 
       (SUB P (C 8. 0. 8. 0.)) 
 TAG42 (SUB P (C 2. 0. 2. 0.)) 
       (JRST 0. TAG24) 
 TAG41 (HLRZ@ 2. 0. P) 
       (MOVE 1. -1. P) 
       (CALL 2. (E CLPARTS) S) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG17 (MOVE 1. -4. P) 
       (JUMPE 1. TAG23) 
       (HLRZ@ 1. -4. P) 
       (MOVE 2. 1.) 
       (MOVEM 1. -3. P) 
       (MOVE 1. -6. P) 
       (CALL 2. (E CLDIFF) S) 
       (HRRZ@ 2. -5. P) 
       (CALL 2. (E CLPARTITIONS) S) 
       (MOVEM 1. -1. P) 
 TAG18 (MOVE 1. -1. P) 
       (JUMPE 1. TAG21) 
       (HLRZ@ 1. -1. P) 
       (MOVE 2. -3. P) 
       (MOVEM 1. -2. P) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. 0. P) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. 0. P) 
 TAG19 
 TAG20 (HRRZ@ 1. -1. P) 
       (MOVEM 1. -1. P) 
       (JRST 0. TAG18) 
 TAG21 
 TAG22 (HRRZ@ 1. -4. P) 
       (MOVEM 1. -4. P) 
       (JRST 0. TAG17) 
 TAG23 (MOVE 1. 0. P) 
       (SUB P (C 5. 0. 5. 0.)) 
 TAG24 (SUB P (C 2. 0. 2. 0.)) 
       (POPJ P) 
       NIL 

(LAP CLPARTS SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (CAIE 2. (QUOTE 0.)) 
       (JRST 0. TAG9) 
       (MOVEI 1. (QUOTE NIL)) 
       (CALL 1. (E NCONS) S) 
       (JRST 0. TAG8) 
 TAG9  (HRRZ@ 1. 1.) 
       (JUMPN 1. TAG10) 
       (HLRZ@ 1. -1. P) 
       (HLRZ@ 1. 1.) 
       (CALL 2. (E CONS) S) 
       (CALL 1. (E NCONS) S) 
       (CALL 1. (E NCONS) S) 
       (JRST 0. TAG8) 
 TAG10 (HRRZ@ 1. -1. P) 
       (CALL 1. (E CLCOUNT) S) 
       (MOVE 2. 1.) 
       (MOVE 1. 0. P) 
       (CALL 2. (E *DIF) S) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (MOVEI 2. (QUOTE 0.)) 
       (CALL 2. (E *GREAT) S) 
       (JUMPE 1. TAG21) 
       (MOVEI 1. (QUOTE NIL)) 
       (JRST 0. TAG20) 
 TAG21 (MOVE 2. -6. P) 
       (HRRZ@ 1. -7. P) 
       (CALL 2. (E CLPARTS) S) 
 TAG20 (HLRZ@ 2. -7. P) 
       (HRRZ@ 2. 2.) 
       (MOVEM 1. 0. P) 
       (MOVE 1. -6. P) 
       (CALL 2. (E *MIN) S) 
       (MOVEI 2. (QUOTE 1.)) 
       (MOVEM 1. -3. P) 
       (MOVE 1. -5. P) 
       (CALL 2. (E *MAX) S) 
       (MOVEM 1. -4. P) 
 TAG1  (MOVE 2. -3. P) 
       (MOVE 1. -4. P) 
       (CALL 2. (E *GREAT) S) 
       (JUMPN 1. TAG7) 
       (HRRZ@ 1. -7. P) 
       (MOVE 2. -4. P) 
       (PUSH P 1.) 
       (MOVE 1. -7. P) 
       (CALL 2. (E *DIF) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E CLPARTS) S) 
       (MOVEM 1. -1. P) 
 TAG2  (MOVE 1. -1. P) 
       (JUMPE 1. TAG5) 
       (HLRZ@ 1. -1. P) 
       (MOVE 2. -4. P) 
       (MOVEM 1. -2. P) 
       (HLRZ@ 1. -7. P) 
       (HLRZ@ 1. 1.) 
       (CALL 2. (E CONS) S) 
       (MOVE 2. -2. P) 
       (CALL 2. (E CONS) S) 
       (MOVE 2. 0. P) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. 0. P) 
 TAG3 
 TAG4  (HRRZ@ 1. -1. P) 
       (MOVEM 1. -1. P) 
       (JRST 0. TAG2) 
 TAG5 
 TAG6  (MOVEI 2. (QUOTE 1.)) 
       (MOVE 1. -4. P) 
       (CALL 2. (E *PLUS) S) 
       (MOVEM 1. -4. P) 
       (JRST 0. TAG1) 
 TAG7  (MOVE 1. 0. P) 
       (SUB P (C 6. 0. 6. 0.)) 
 TAG8  (SUB P (C 2. 0. 2. 0.)) 
       (POPJ P) 
       NIL 

(LAP CL=PARTS SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (PUSH P 3.) 
       (HRRZ@ 1. 1.) 
       (JUMPN 1. TAG22) 
       (MOVE 2. 3.) 
       (HLRZ@ 1. -2. P) 
       (HLRZ@ 1. 1.) 
       (CALL 2. (E CONS) S) 
       (CALL 1. (E NCONS) S) 
       (MOVEM 1. -2. P) 
       (PUSH P (C 0. 0. (QUOTE 1.) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (MOVE 2. -3. P) 
       (MOVE 1. -1. P) 
       (CALL 2. (E *GREAT) S) 
       (JUMPN 1. TAG4) 
       (MOVE 2. 0. P) 
       (MOVE 1. -4. P) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. 0. P) 
 TAG2 
 TAG3  (MOVEI 2. (QUOTE 1.)) 
       (MOVE 1. -1. P) 
       (CALL 2. (E *PLUS) S) 
       (MOVEM 1. -1. P) 
       (JRST 0. TAG1) 
 TAG4  (MOVE 1. 0. P) 
       (CALL 1. (E NCONS) S) 
       (SUB P (C 2. 0. 2. 0.)) 
       (JRST 0. TAG21) 
 TAG22 (MOVE 4. 0. P) 
       (MOVEI 3. (QUOTE 0.)) 
       (MOVE 2. -1. P) 
       (HLRZ@ 1. -2. P) 
       (HRRZ@ 1. 1.) 
       (CALL 4. (E NUMPARTITIONS) S) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG5  (MOVE 1. -4. P) 
       (JUMPE 1. TAG20) 
       (HLRZ@ 1. -4. P) 
       (MOVEM 1. -3. P) 
       (HRRZ@ 1. -7. P) 
       (PUSH P 1.) 
       (PUSH P -4. P) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG6  (MOVE 1. -2. P) 
       (JUMPN 1. TAG39) 
       (JRST 0. TAG9) 
 TAG39 (HLRZ@ 1. -2. P) 
       (MOVEM 1. -1. P) 
       (PUSH P (C 0. 0. TAG41 0.)) 
       (PUSH P -1. P) 
       (MOVE 2. 1.) 
       (MOVE 1. -11. P) 
       (CALL 2. (E *DIF) S) 
       (CALL 1. (E NCONS) S) 
       (PUSH P 1.) 
       (MOVNI 6. 2.) 
       (JCALL 14. (E NCONC) S) 
 TAG41 (MOVEM 1. 0. P) 
 TAG7 
 TAG8  (HRRZ@ 1. -2. P) 
       (MOVEM 1. -2. P) 
       (JRST 0. TAG6) 
 TAG9  (MOVE 2. 0. P) 
       (MOVE 1. -3. P) 
       (CALL 2. (E CLPARTITIONS) S) 
       (SUB P (C 4. 0. 4. 0.)) 
       (MOVEM 1. -1. P) 
 TAG10 (MOVE 1. -1. P) 
       (JUMPE 1. TAG18) 
       (HLRZ@ 1. -1. P) 
       (MOVEM 1. -2. P) 
       (PUSH P -3. P) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG11 (MOVE 1. -4. P) 
       (JUMPE 1. TAG15) 
       (HLRZ@ 1. -4. P) 
       (MOVEM 1. -2. P) 
       (MOVE 1. -3. P) 
       (JUMPE 1. TAG15) 
       (HLRZ@ 1. -3. P) 
       (MOVEM 1. -1. P) 
       (PUSH P (C 0. 0. TAG51 0.)) 
       (PUSH P -1. P) 
       (MOVE 1. -4. P) 
       (CAIE 1. (QUOTE 0.)) 
       (JRST 0. TAG53) 
       (MOVE 1. -3. P) 
       (JRST 0. TAG52) 
 TAG53 (MOVE 2. -4. P) 
       (HLRZ@ 1. -14. P) 
       (HLRZ@ 1. 1.) 
       (CALL 2. (E CONS) S) 
       (MOVE 2. -3. P) 
       (CALL 2. (E CONS) S) 
 TAG52 (CALL 1. (E NCONS) S) 
       (PUSH P 1.) 
       (MOVNI 6. 2.) 
       (JCALL 14. (E NCONC) S) 
 TAG51 (MOVEM 1. 0. P) 
 TAG12 
 TAG13 (HRRZ@ 1. -3. P) 
       (MOVEM 1. -3. P) 
 TAG14 (HRRZ@ 1. -4. P) 
       (MOVEM 1. -4. P) 
       (JRST 0. TAG11) 
 TAG15 (MOVE 1. 0. P) 
       (MOVE 2. -5. P) 
       (CALL 2. (E CONS) S) 
       (SUB P (C 5. 0. 5. 0.)) 
       (MOVEM 1. 0. P) 
 TAG16 
 TAG17 (HRRZ@ 1. -1. P) 
       (MOVEM 1. -1. P) 
       (JRST 0. TAG10) 
 TAG18 
 TAG19 (HRRZ@ 1. -4. P) 
       (MOVEM 1. -4. P) 
       (JRST 0. TAG5) 
 TAG20 (MOVE 1. 0. P) 
       (SUB P (C 5. 0. 5. 0.)) 
 TAG21 (SUB P (C 3. 0. 3. 0.)) 
       (POPJ P) 
       NIL 

(LAP CLDIFF SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (JUMPN 2. TAG2) 
       (JRST 0. TAG1) 
 TAG2  (HLRZ@ 2. 2.) 
       (HLRZ@ 1. 1.) 
       (CALL 2. (E EQUAL) S) 
       (JUMPE 1. TAG4) 
       (HRRZ@ 2. 0. P) 
       (HRRZ@ 1. -1. P) 
       (CALL 2. (E CLDIFF) S) 
       (JRST 0. TAG1) 
 TAG4  (HLRZ@ 1. 0. P) 
       (HLRZ@ 1. 1.) 
       (HLRZ@ 2. -1. P) 
       (HLRZ@ 2. 2.) 
       (CAME 2. 1.) 
       (JRST 0. TAG5) 
       (HLRZ@ 1. -1. P) 
       (HLRZ@ 1. 1.) 
       (HLRZ@ 2. 0. P) 
       (HRRZ@ 2. 2.) 
       (PUSH P 1.) 
       (HLRZ@ 1. -2. P) 
       (HRRZ@ 1. 1.) 
       (CALL 2. (E *DIF) S) 
       (POP P 2.) 
       (CALL 2. (E XCONS) S) 
       (HRRZ@ 2. 0. P) 
       (PUSH P 1.) 
       (HRRZ@ 1. -2. P) 
       (CALL 2. (E CLDIFF) S) 
       (POP P 2.) 
       (CALL 2. (E XCONS) S) 
       (JRST 0. TAG1) 
 TAG5  (HLRZ@ 1. -1. P) 
       (MOVE 2. 0. P) 
       (PUSH P 1.) 
       (HRRZ@ 1. -2. P) 
       (CALL 2. (E CLDIFF) S) 
       (POP P 2.) 
       (CALL 2. (E XCONS) S) 
 TAG1  (SUB P (C 2. 0. 2. 0.)) 
       (POPJ P) 
       NIL 

(LAP CLCOUNT SUBR) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE 0.) 0.)) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (MOVE 1. -1. P) 
       (JUMPE 1. TAG4) 
       (HLRZ@ 1. -1. P) 
       (MOVE 2. -2. P) 
       (MOVEM 1. 0. P) 
       (HRRZ@ 1. 1.) 
       (CALL 2. (E *PLUS) S) 
       (MOVEM 1. -2. P) 
 TAG2 
 TAG3  (HRRZ@ 1. -1. P) 
       (MOVEM 1. -1. P) 
       (JRST 0. TAG1) 
 TAG4  (MOVE 1. -2. P) 
       (SUB P (C 4. 0. 4. 0.)) 
       (POPJ P) 
       NIL 

(LAP CLPARTITIONSN SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (PUSH P 3.) 
       (PUSH P 4.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (CALL 1. (E CLCOUNT) S) 
       (MOVE 4. -1. P) 
       (MOVE 3. -2. P) 
       (MOVE 2. -3. P) 
       (CALL 4. (E NUMPARTITIONS) S) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (MOVE 1. -1. P) 
       (JUMPE 1. TAG4) 
       (HLRZ@ 1. -1. P) 
       (MOVEM 1. 0. P) 
       (PUSH P (C 0. 0. TAG10 0.)) 
       (PUSH P -3. P) 
       (MOVE 2. 1.) 
       (MOVE 1. -8. P) 
       (CALL 2. (E CLPARTITIONS) S) 
       (PUSH P 1.) 
       (MOVNI 6. 2.) 
       (JCALL 14. (E NCONC) S) 
 TAG10 (MOVEM 1. -2. P) 
 TAG2 
 TAG3  (HRRZ@ 1. -1. P) 
       (MOVEM 1. -1. P) 
       (JRST 0. TAG1) 
 TAG4  (MOVE 1. -2. P) 
       (SUB P (C 7. 0. 7. 0.)) 
       (POPJ P) 
       NIL 

(LAP CLCREATE SUBR) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (MOVE 1. -2. P) 
       (JUMPE 1. TAG4) 
       (HLRZ@ 1. -2. P) 
       (MOVE 2. -3. P) 
       (MOVEM 1. -1. P) 
       (CALL 2. (E CLINSERT) S) 
       (MOVEM 1. -3. P) 
 TAG2 
 TAG3  (HRRZ@ 1. -2. P) 
       (MOVEM 1. -2. P) 
       (JRST 0. TAG1) 
 TAG4  (SUB P (C 3. 0. 3. 0.)) 
       (MOVE 1. 0. P) 
       (SUB P (C 2. 0. 2. 0.)) 
       (POPJ P) 
       NIL 

(LAP CLINSERT SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (JUMPN 2. TAG2) 
       (MOVEI 2. (QUOTE 1.)) 
       (CALL 2. (E CONS) S) 
       (CALL 1. (E NCONS) S) 
       (JRST 0. TAG1) 
 TAG2  (HLRZ@ 2. 2.) 
       (HLRZ@ 2. 2.) 
       (CALL 2. (E EQUAL) S) 
       (JUMPE 1. TAG4) 
       (HLRZ@ 1. 0. P) 
       (PUSH P 1.) 
       (HRRZ@ 1. 1.) 
       (CALL 1. (E ADD1) S) 
       (HRRM@ 1. 0. P) 
       (MOVE 1. -1. P) 
       (SUB P (C 1. 0. 1. 0.)) 
       (JRST 0. TAG1) 
 TAG4  (HLRZ@ 2. 0. P) 
       (HLRZ@ 2. 2.) 
       (MOVE 1. -1. P) 
       (CALL 2. (E LEQ) S) 
       (JUMPE 1. TAG5) 
       (MOVEI 2. (QUOTE 1.)) 
       (MOVE 1. -1. P) 
       (CALL 2. (E CONS) S) 
       (MOVE 2. 0. P) 
       (CALL 2. (E CONS) S) 
       (JRST 0. TAG1) 
 TAG5  (HRRZ@ 2. 0. P) 
       (MOVE 1. -1. P) 
       (CALL 2. (E CLINSERT) S) 
       (HRRM@ 1. 0. P) 
       (MOVE 1. 0. P) 
 TAG1  (SUB P (C 2. 0. 2. 0.)) 
       (POPJ P) 
       NIL 

(LAP CLEXPAND SUBR) 
       (PUSH P 1.) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (MOVE 1. -4. P) 
       (JUMPE 1. TAG7) 
       (HLRZ@ 1. -4. P) 
       (HRRZ@ 2. 1.) 
       (MOVEI 3. (QUOTE 1.)) 
       (MOVEM 3. -2. P) 
       (MOVEM 2. -1. P) 
       (MOVEM 1. -3. P) 
 TAG2  (MOVE 2. -1. P) 
       (MOVE 1. -2. P) 
       (CALL 2. (E *GREAT) S) 
       (JUMPN 1. TAG5) 
       (PUSH P (C 0. 0. TAG14 0.)) 
       (PUSH P -1. P) 
       (HLRZ@ 1. -5. P) 
       (CALL 1. (E NCONS) S) 
       (PUSH P 1.) 
       (MOVNI 6. 2.) 
       (JCALL 14. (E NCONC) S) 
 TAG14 (MOVEM 1. 0. P) 
 TAG3 
 TAG4  (MOVEI 2. (QUOTE 1.)) 
       (MOVE 1. -2. P) 
       (CALL 2. (E *PLUS) S) 
       (MOVEM 1. -2. P) 
       (JRST 0. TAG2) 
 TAG5 
 TAG6  (HRRZ@ 1. -4. P) 
       (MOVEM 1. -4. P) 
       (JRST 0. TAG1) 
 TAG7  (MOVE 1. 0. P) 
       (SUB P (C 6. 0. 6. 0.)) 
       (POPJ P) 
       NIL 

(LAP GENRAD SUBR) 
       (PUSH P 1.) 
       (HRRZ@ 1. 1.) 
       (JUMPN 1. TAG14) 
       (MOVEI 2. (QUOTE 1.)) 
       (HLRZ@ 1. 0. P) 
       (HRRZ@ 1. 1.) 
       (CALL 2. (E EQUAL) S) 
       (JUMPE 1. TAG14) 
       (MOVEI 3. (QUOTE T) S) 
       (MOVEI 2. (QUOTE NIL)) 
       (HLRZ@ 1. 0. P) 
       (HLRZ@ 1. 1.) 
       (CALL 3. (E PERMRADS) S) 
       (JRST 0. TAG13) 
 TAG14 (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P -1. P) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (MOVE 1. -6. P) 
       (JUMPE 1. TAG12) 
       (HLRZ@ 1. -6. P) 
       (HLRZ@ 1. 1.) 
       (MOVEI 2. (QUOTE 1.)) 
       (MOVEM 1. -5. P) 
       (CALL 2. (E CONS) S) 
       (CALL 1. (E NCONS) S) 
       (MOVE 2. 1.) 
       (MOVE 1. -8. P) 
       (CALL 2. (E CLDIFF) S) 
       (MOVEM 1. -4. P) 
       (CALL 1. (E CLCOUNT) S) 
       (PUSH P 1.) 
       (MOVE 1. -6. P) 
       (CALL 1. (E VALENCE) S) 
       (CALL 1. (E SUB1) S) 
       (POP P 2.) 
       (CALL 2. (E *MIN) S) 
       (MOVEI 2. (QUOTE 1.)) 
       (MOVEM 2. -3. P) 
       (MOVEM 1. -2. P) 
 TAG2  (MOVE 2. -2. P) 
       (MOVE 1. -3. P) 
       (CALL 2. (E *GREAT) S) 
       (JUMPN 1. TAG8) 
       (MOVE 2. -3. P) 
       (MOVE 1. -4. P) 
       (CALL 2. (E GENRADS) S) 
       (MOVEM 1. 0. P) 
 TAG3  (MOVE 1. 0. P) 
       (JUMPE 1. TAG6) 
       (HLRZ@ 1. 0. P) 
       (MOVEM 1. -1. P) 
       (PUSH P (C 0. 0. TAG28 0.)) 
       (PUSH P -8. P) 
       (MOVEI 3. (QUOTE T) S) 
       (MOVE 2. 1.) 
       (MOVE 1. -7. P) 
       (CALL 3. (E PERMRADS) S) 
       (PUSH P 1.) 
       (MOVNI 6. 2.) 
       (JCALL 14. (E NCONC) S) 
 TAG28 (MOVEM 1. -7. P) 
 TAG4 
 TAG5  (HRRZ@ 1. 0. P) 
       (MOVEM 1. 0. P) 
       (JRST 0. TAG3) 
 TAG6 
 TAG7  (MOVEI 2. (QUOTE 1.)) 
       (MOVE 1. -3. P) 
       (CALL 2. (E *PLUS) S) 
       (MOVEM 1. -3. P) 
       (JRST 0. TAG2) 
 TAG8 
 TAG9 
 TAG10 
 TAG11 (HRRZ@ 1. -6. P) 
       (MOVEM 1. -6. P) 
       (JRST 0. TAG1) 
 TAG12 (MOVE 1. -7. P) 
       (SUB P (C 8. 0. 8. 0.)) 
 TAG13 (SUB P (C 1. 0. 1. 0.)) 
       (POPJ P) 
       NIL 

(LAP GENRADS SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (JUMPN 1. TAG6) 
       (CALL 1. (E NCONS) S) 
       (JRST 0. TAG5) 
 TAG6  (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (MOVE 1. -2. P) 
       (CALL 1. (E CLCOUNT) S) 
       (MOVE 4. 1.) 
       (MOVEI 3. (QUOTE 1.)) 
       (MOVE 2. -1. P) 
       (MOVE 1. -2. P) 
       (CALL 4. (E CLPARTITIONSN) S) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (MOVE 1. -1. P) 
       (JUMPE 1. TAG4) 
       (HLRZ@ 1. -1. P) 
       (MOVEM 1. 0. P) 
       (PUSH P (C 0. 0. TAG15 0.)) 
       (PUSH P -3. P) 
       (CALL 1. (E GENRADLIST) S) 
       (PUSH P 1.) 
       (MOVNI 6. 2.) 
       (JCALL 14. (E NCONC) S) 
 TAG15 (MOVEM 1. -2. P) 
 TAG2 
 TAG3  (HRRZ@ 1. -1. P) 
       (MOVEM 1. -1. P) 
       (JRST 0. TAG1) 
 TAG4  (MOVE 1. -2. P) 
       (SUB P (C 3. 0. 3. 0.)) 
 TAG5  (SUB P (C 2. 0. 2. 0.)) 
       (POPJ P) 
       NIL 

(LAP GENRADLIST SUBR) 
       (CALL 1. (E CLCREATE) S) 
       (CALL 1. (E GENRADLIST1) S) 
       (JCALL 1. (E GROUPRADS) S) 
       NIL 

(LAP GENRADLIST1 SUBR) 
       (PUSH P 1.) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (MOVE 1. -2. P) 
       (JUMPE 1. TAG4) 
       (HLRZ@ 1. -2. P) 
       (MOVEM 1. -1. P) 
       (PUSH P (C 0. 0. TAG10 0.)) 
       (PUSH P -1. P) 
       (HLRZ@ 1. 1.) 
       (CALL 1. (E GENRAD) S) 
       (HRRZ@ 2. -3. P) 
       (CALL 2. (E CONS) S) 
       (CALL 1. (E NCONS) S) 
       (PUSH P 1.) 
       (MOVNI 6. 2.) 
       (JCALL 14. (E NCONC) S) 
 TAG10 (MOVEM 1. 0. P) 
 TAG2 
 TAG3  (HRRZ@ 1. -2. P) 
       (MOVEM 1. -2. P) 
       (JRST 0. TAG1) 
 TAG4  (MOVE 1. 0. P) 
       (SUB P (C 4. 0. 4. 0.)) 
       (POPJ P) 
       NIL 

(LAP GROUPRADS SUBR) 
       (PUSH P 1.) 
       (JUMPN 1. TAG2) 
       (CALL 1. (E NCONS) S) 
       (JRST 0. TAG1) 
 TAG2  (HLRZ@ 1. 0. P) 
       (HRRZ@ 1. 1.) 
       (PUSH P 1.) 
       (HLRZ@ 1. -1. P) 
       (HLRZ@ 1. 1.) 
       (PUSH P 1.) 
       (HRRZ@ 1. -2. P) 
       (CALL 1. (E GROUPRADS) S) 
       (MOVE 3. 1.) 
       (MOVE 2. -1. P) 
       (POP P 1.) 
       (CALL 3. (E GROUPRADS1) S) 
       (SUB P (C 1. 0. 1. 0.)) 
 TAG1  (SUB P (C 1. 0. 1. 0.)) 
       (POPJ P) 
       NIL 

(LAP GROUPRADS1 SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (PUSH P 3.) 
       (CAIE 2. (QUOTE 0.)) 
       (JRST 0. TAG10) 
       (MOVE 1. 3.) 
       (JRST 0. TAG9) 
 TAG10 (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG13 
 TAG2  (MOVE 1. -5. P) 
       (JUMPE 1. TAG8) 
       (MOVE 1. -4. P) 
       (CALL 1. (E SUB1) S) 
       (MOVE 3. -3. P) 
       (MOVE 2. 1.) 
       (MOVE 1. -5. P) 
       (CALL 3. (E GROUPRADS1) S) 
       (MOVEM 1. -1. P) 
 TAG3  (MOVE 1. -1. P) 
       (JUMPE 1. TAG6) 
       (HLRZ@ 1. -1. P) 
       (MOVEM 1. -2. P) 
       (PUSH P (C 0. 0. TAG20 0.)) 
       (PUSH P -1. P) 
       (HLRZ@ 2. -7. P) 
       (CALL 2. (E XCONS) S) 
       (CALL 1. (E NCONS) S) 
       (PUSH P 1.) 
       (MOVNI 6. 2.) 
       (JCALL 14. (E NCONC) S) 
 TAG20 (MOVEM 1. 0. P) 
 TAG4 
 TAG5  (HRRZ@ 1. -1. P) 
       (MOVEM 1. -1. P) 
       (JRST 0. TAG3) 
 TAG6 
 TAG7  (HRRZ@ 1. -5. P) 
       (MOVEM 1. -5. P) 
       (JRST 0. TAG2) 
 TAG8  (MOVE 1. 0. P) 
       (SUB P (C 3. 0. 3. 0.)) 
 TAG9  (SUB P (C 3. 0. 3. 0.)) 
       (POPJ P) 
       NIL 

(LAP VALENCE SUBR) 
       (PUSH P 1.) 
       (CALL 1. (E NUMBERP) S) 
       (JUMPE 1. TAG2) 
       (MOVE 1. 0. P) 
       (JRST 0. TAG1) 
 TAG2  (MOVE 1. 0. P) 
       (CALL 1. (E ATOM) S) 
       (JUMPE 1. TAG3) 
       (MOVEI 2. (QUOTE VALENCE) S) 
       (MOVE 1. 0. P) 
       (CALL 2. (E GET) S) 
       (JRST 0. TAG1) 
 TAG3  (MOVE 1. 0. P) 
       (CALL 1. (E FREEVALENCESIZE) S) 
 TAG1  (SUB P (C 1. 0. 1. 0.)) 
       (POPJ P) 
       NIL 

(LAP GENMOL SUBR) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (CALL 1. (E CLCOUNT) S) 
       (MOVEI 2. (QUOTE 1.)) 
       (MOVEM 1. -2. P) 
       (CALL 2. (E EQUAL) S) 
       (JUMPE 1. TAG27) 
       (MOVEI 3. (QUOTE NIL)) 
       (MOVEI 2. (QUOTE NIL)) 
       (HLRZ@ 1. -3. P) 
       (HLRZ@ 1. 1.) 
       (CALL 3. (E PERMRADS) S) 
       (JRST 0. TAG23) 
 TAG27 (MOVEI 2. (QUOTE 2.)) 
       (MOVE 1. -2. P) 
       (CALL 2. (E REMAINDER) S) 
       (CAIE 1. (QUOTE 0.)) 
       (JRST 0. TAG28) 
       (MOVEI 2. (QUOTE 2.)) 
       (MOVE 1. -2. P) 
       (CALL 2. (E *QUO) S) 
       (MOVE 3. 1.) 
       (MOVEI 2. (QUOTE 2.)) 
       (MOVE 1. -3. P) 
       (CALL 3. (E CL=PARTS) S) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (MOVE 1. -4. P) 
       (JUMPE 1. TAG7) 
       (HLRZ@ 1. -4. P) 
       (MOVEM 1. -3. P) 
       (CALL 1. (E GENRADLIST) S) 
       (MOVEM 1. -1. P) 
 TAG2  (MOVE 1. -1. P) 
       (JUMPE 1. TAG5) 
       (HLRZ@ 1. -1. P) 
       (MOVEI 3. (QUOTE NIL)) 
       (MOVE 2. 1.) 
       (MOVEM 1. -2. P) 
       (MOVEI 1. (QUOTE NIL)) 
       (CALL 3. (E PERMRADS) S) 
       (MOVE 2. -6. P) 
       (CALL 2. (E *APPEND) S) 
       (MOVEM 1. -6. P) 
 TAG3 
 TAG4  (HRRZ@ 1. -1. P) 
       (MOVEM 1. -1. P) 
       (JRST 0. TAG2) 
 TAG5 
 TAG6  (HRRZ@ 1. -4. P) 
       (MOVEM 1. -4. P) 
       (JRST 0. TAG1) 
 TAG7  (MOVEI 1. (QUOTE 3.)) 
       (MOVEM 1. -5. P) 
       (SUB P (C 5. 0. 5. 0.)) 
       (JRST 0. TAG26) 
 TAG28 (MOVEI 1. (QUOTE 2.)) 
       (MOVEM 1. 0. P) 
 TAG26 (MOVE 1. -2. P) 
       (CALL 1. (E SUB1) S) 
       (MOVEM 1. -2. P) 
       (PUSH P -3. P) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG8  (MOVE 1. -10. P) 
       (JUMPE 1. TAG22) 
       (HLRZ@ 1. -10. P) 
       (HLRZ@ 2. 1.) 
       (MOVEM 2. -8. P) 
       (MOVEI 2. (QUOTE 1.)) 
       (MOVEM 1. -9. P) 
       (MOVE 1. -8. P) 
       (CALL 2. (E CONS) S) 
       (CALL 1. (E NCONS) S) 
       (MOVE 2. 1.) 
       (MOVE 1. -14. P) 
       (CALL 2. (E CLDIFF) S) 
       (MOVEM 1. -7. P) 
       (MOVE 1. -8. P) 
       (CALL 1. (E VALENCE) S) 
       (MOVE 2. -13. P) 
       (CALL 2. (E *MIN) S) 
       (MOVE 2. -11. P) 
       (MOVEM 2. -6. P) 
       (MOVEM 1. -5. P) 
 TAG9  (MOVE 2. -5. P) 
       (MOVE 1. -6. P) 
       (CALL 2. (E *GREAT) S) 
       (JUMPN 1. TAG18) 
       (MOVEI 2. (QUOTE 2.)) 
       (MOVE 1. -13. P) 
       (CALL 2. (E *QUO) S) 
       (MOVE 4. 1.) 
       (MOVEI 3. (QUOTE 1.)) 
       (MOVE 2. -6. P) 
       (MOVE 1. -7. P) 
       (CALL 4. (E CLPARTITIONSN) S) 
       (MOVEM 1. -3. P) 
 TAG10 (MOVE 1. -3. P) 
       (JUMPE 1. TAG16) 
       (HLRZ@ 1. -3. P) 
       (MOVEM 1. -4. P) 
       (CALL 1. (E GENRADLIST) S) 
       (MOVEM 1. -1. P) 
 TAG11 (MOVE 1. -1. P) 
       (JUMPE 1. TAG14) 
       (HLRZ@ 1. -1. P) 
       (MOVEM 1. -2. P) 
       (PUSH P (C 0. 0. TAG48 0.)) 
       (MOVEI 3. (QUOTE NIL)) 
       (MOVE 2. 1.) 
       (MOVE 1. -9. P) 
       (CALL 3. (E PERMRADS) S) 
       (PUSH P 1.) 
       (PUSH P -14. P) 
       (MOVNI 6. 2.) 
       (JCALL 14. (E NCONC) S) 
 TAG48 (MOVEM 1. -12. P) 
 TAG12 
 TAG13 (HRRZ@ 1. -1. P) 
       (MOVEM 1. -1. P) 
       (JRST 0. TAG11) 
 TAG14 
 TAG15 (HRRZ@ 1. -3. P) 
       (MOVEM 1. -3. P) 
       (JRST 0. TAG10) 
 TAG16 
 TAG17 (MOVEI 2. (QUOTE 1.)) 
       (MOVE 1. -6. P) 
       (CALL 2. (E *PLUS) S) 
       (MOVEM 1. -6. P) 
       (JRST 0. TAG9) 
 TAG18 
 TAG19 
 TAG20 
 TAG21 (HRRZ@ 1. -10. P) 
       (MOVEM 1. -10. P) 
       (JRST 0. TAG8) 
 TAG22 (SUB P (C 11. 0. 11. 0.)) 
       (MOVE 1. -1. P) 
 TAG23 (SUB P (C 4. 0. 4. 0.)) 
       (POPJ P) 
       NIL 

(LAP NUMPARTITIONS* SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (PUSH P 3.) 
       (PUSH P 4.) 
       (HRRZ@ 1. 4.) 
       (JUMPN 1. TAG14) 
       (HLRZ@ 4. 3.) 
       (EXCH 3. 2.) 
       (HLRZ@ 2. 0. P) 
       (MOVE 1. -3. P) 
       (CALL 4. (E NUMPARTITIONS) S) 
       (JRST 0. TAG13) 
 TAG14 (HLRZ@ 1. -1. P) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P 1.) 
       (HRRZ@ 1. -6. P) 
       (CALL 1. (E PLUSLIST) S) 
       (MOVE 2. 1.) 
       (MOVE 1. -9. P) 
       (CALL 2. (E *DIF) S) 
       (HLRZ@ 2. -6. P) 
       (CALL 2. (E *QUO) S) 
       (POP P 2.) 
       (CALL 2. (E *MIN) S) 
       (MOVEM 1. -3. P) 
       (PUSH P -8. P) 
       (PUSH P -8. P) 
       (HLRZ@ 1. -7. P) 
       (CALL 1. (E SUB1) S) 
       (HLRZ@ 2. -8. P) 
       (CALL 2. (E *TIMES) S) 
       (HRRZ@ 2. -8. P) 
       (HRRZ@ 3. -7. P) 
       (PUSH P 3.) 
       (PUSH P 2.) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (MOVE 1. -3. P) 
       (JUMPN 1. TAG25) 
       (JRST 0. TAG5) 
 TAG25 (HLRZ@ 1. -3. P) 
       (MOVEM 1. -1. P) 
       (MOVE 1. -4. P) 
       (JUMPN 1. TAG28) 
       (JRST 0. TAG5) 
 TAG28 (HLRZ@ 1. -4. P) 
       (MOVE 2. -1. P) 
       (MOVEM 1. 0. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. -2. P) 
       (CALL 2. (E *PLUS) S) 
       (MOVEM 1. -2. P) 
 TAG2 
 TAG3  (HRRZ@ 1. -4. P) 
       (MOVEM 1. -4. P) 
 TAG4  (HRRZ@ 1. -3. P) 
       (MOVEM 1. -3. P) 
       (JRST 0. TAG1) 
 TAG5  (MOVE 2. -2. P) 
       (MOVE 1. -6. P) 
       (CALL 2. (E *DIF) S) 
       (MOVE 2. -5. P) 
       (CALL 2. (E *MAX) S) 
       (CALL 1. (E FIX+) S) 
       (SUB P (C 7. 0. 7. 0.)) 
       (MOVEM 1. -4. P) 
 TAG6  (MOVE 2. -3. P) 
       (MOVE 1. -4. P) 
       (CALL 2. (E *GREAT) S) 
       (JUMPN 1. TAG12) 
       (MOVEI 2. (QUOTE 1.)) 
       (HLRZ@ 1. -5. P) 
       (CALL 2. (E EQUAL) S) 
       (JUMPE 1. TAG32) 
       (MOVE 2. -4. P) 
       (MOVE 1. -8. P) 
       (CALL 2. (E *DIF) S) 
       (HRRZ@ 4. -5. P) 
       (HRRZ@ 3. -6. P) 
       (MOVEI 2. (QUOTE 1.)) 
       (CALL 4. (E NUMPARTITIONS*) S) 
       (JRST 0. TAG31) 
 TAG32 (MOVE 2. -4. P) 
       (MOVE 1. -8. P) 
       (CALL 2. (E *DIF) S) 
       (PUSH P 1.) 
       (HLRZ@ 1. -6. P) 
       (CALL 1. (E SUB1) S) 
       (HRRZ@ 2. -6. P) 
       (CALL 2. (E CONS) S) 
       (MOVE 4. 1.) 
       (MOVE 3. -7. P) 
       (MOVE 2. -5. P) 
       (POP P 1.) 
       (CALL 4. (E NUMPARTITIONS*) S) 
 TAG31 (MOVEM 1. -1. P) 
 TAG7  (MOVE 1. -1. P) 
       (JUMPE 1. TAG10) 
       (HLRZ@ 1. -1. P) 
       (MOVE 2. -4. P) 
       (MOVEM 1. -2. P) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. 0. P) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. 0. P) 
 TAG8 
 TAG9  (HRRZ@ 1. -1. P) 
       (MOVEM 1. -1. P) 
       (JRST 0. TAG7) 
 TAG10 
 TAG11 (MOVEI 2. (QUOTE 1.)) 
       (MOVE 1. -4. P) 
       (CALL 2. (E *PLUS) S) 
       (MOVEM 1. -4. P) 
       (JRST 0. TAG6) 
 TAG12 (MOVE 1. 0. P) 
       (SUB P (C 5. 0. 5. 0.)) 
 TAG13 (SUB P (C 4. 0. 4. 0.)) 
       (POPJ P) 
       NIL 

(LAP GROUPBY SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (MOVE 1. 2.) 
       (JUMPE 1. TAG1) 
       (HRRZ@ 2. 0. P) 
       (MOVE 1. -1. P) 
       (CALL 2. (E GROUPBY) S) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (HLRZ@ 1. -3. P) 
       (CALLF@ 1. -4. P) 
       (MOVEI 3. (QUOTE NIL)) 
       (MOVE 2. -2. P) 
       (MOVEM 1. 0. P) 
       (CALL 3. (E LMASSOC) S) 
       (MOVEM 1. -1. P) 
       (JUMPN 1. TAG8) 
       (HLRZ@ 1. -3. P) 
       (CALL 1. (E NCONS) S) 
       (MOVE 2. 0. P) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. -2. P) 
       (CALL 2. (E CONS) S) 
       (JRST 0. TAG4) 
 TAG8  (PUSH P (C 0. 0. TAG12 0.)) 
       (PUSH P -2. P) 
       (HLRZ@ 1. -5. P) 
       (CALL 1. (E NCONS) S) 
       (PUSH P 1.) 
       (MOVNI 6. 2.) 
       (JCALL 14. (E NCONC) S) 
 TAG12 (MOVE 1. -2. P) 
       (JRST 0. TAG4) 
 TAG4  (SUB P (C 3. 0. 3. 0.)) 
 TAG1  (SUB P (C 2. 0. 2. 0.)) 
       (POPJ P) 
       NIL 

(LAP FVPARTITION1 SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (PUSH P 3.) 
       (JUMPN 2. TAG18) 
       (MOVEI 1. (QUOTE NIL)) 
       (CALL 1. (E NCONS) S) 
       (JRST 0. TAG17) 
 TAG18 (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE 0.) 0.)) 
       (HRRZ@ 1. -3. P) 
       (PUSH P 1.) 
       (MOVE 1. -3. P) 
       (CALL 1. (E ADD1) S) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (MOVE 1. -2. P) 
       (JUMPE 1. TAG5) 
       (HLRZ@ 1. -2. P) 
       (MOVEM 1. 0. P) 
       (MOVEI 2. (QUOTE 9999999.) S) 
       (MOVE 1. -1. P) 
       (CALL 2. (E *GREAT) S) 
       (JUMPN 1. TAG5) 
       (MOVE 2. 0. P) 
       (MOVE 1. -1. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. -3. P) 
       (CALL 2. (E *PLUS) S) 
       (MOVEM 1. -3. P) 
 TAG2 
 TAG3  (MOVEI 2. (QUOTE 1.)) 
       (MOVE 1. -1. P) 
       (CALL 2. (E *PLUS) S) 
       (MOVEM 1. -1. P) 
 TAG4  (HRRZ@ 1. -2. P) 
       (MOVEM 1. -2. P) 
       (JRST 0. TAG1) 
 TAG5  (MOVE 1. -3. P) 
       (SUB P (C 4. 0. 4. 0.)) 
       (MOVEM 1. 0. P) 
       (MOVE 2. -1. P) 
       (HLRZ@ 1. -2. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. -3. P) 
       (CALL 2. (E *MIN) S) 
       (MOVE 2. 0. P) 
       (PUSH P 1.) 
       (MOVE 1. -4. P) 
       (CALL 2. (E *DIF) S) 
       (MOVEI 2. (QUOTE 0.)) 
       (CALL 2. (E *MAX) S) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG6  (MOVE 2. -7. P) 
       (MOVE 1. -6. P) 
       (CALL 2. (E *GREAT) S) 
       (JUMPN 1. TAG16) 
       (MOVE 2. -6. P) 
       (MOVE 1. -11. P) 
       (CALL 2. (E *DIF) S) 
       (PUSH P 1.) 
       (HRRZ@ 1. -11. P) 
       (PUSH P 1.) 
       (MOVE 1. -11. P) 
       (CALL 1. (E ADD1) S) 
       (MOVE 3. 1.) 
       (POP P 2.) 
       (POP P 1.) 
       (CALL 3. (E FVPARTITION1) S) 
       (MOVE 3. -9. P) 
       (HLRZ@ 2. -10. P) 
       (MOVEM 1. -5. P) 
       (MOVE 1. -6. P) 
       (CALL 3. (E FVPART1) S) 
       (MOVEM 1. -3. P) 
 TAG7  (MOVE 1. -3. P) 
       (JUMPE 1. TAG13) 
       (HLRZ@ 1. -3. P) 
       (MOVE 2. -5. P) 
       (MOVEM 2. -1. P) 
       (MOVEM 1. -4. P) 
 TAG8  (MOVE 1. -1. P) 
       (JUMPE 1. TAG11) 
       (HLRZ@ 1. -1. P) 
       (MOVE 2. -4. P) 
       (MOVEM 1. -2. P) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. 0. P) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. 0. P) 
 TAG9 
 TAG10 (HRRZ@ 1. -1. P) 
       (MOVEM 1. -1. P) 
       (JRST 0. TAG8) 
 TAG11 
 TAG12 (HRRZ@ 1. -3. P) 
       (MOVEM 1. -3. P) 
       (JRST 0. TAG7) 
 TAG13 
 TAG14 
 TAG15 (MOVEI 2. (QUOTE 1.)) 
       (MOVE 1. -6. P) 
       (CALL 2. (E *PLUS) S) 
       (MOVEM 1. -6. P) 
       (JRST 0. TAG6) 
 TAG16 (MOVE 1. 0. P) 
       (SUB P (C 9. 0. 9. 0.)) 
 TAG17 (SUB P (C 3. 0. 3. 0.)) 
       (POPJ P) 
       NIL 

(LAP FVPART1 SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (PUSH P 3.) 
       (CAIE 3. (QUOTE 0.)) 
       (JRST 0. TAG9) 
       (MOVEI 1. (QUOTE NIL)) 
       (CALL 1. (E NCONS) S) 
       (JRST 0. TAG8) 
 TAG9  (MOVE 2. 0. P) 
       (MOVE 1. -2. P) 
       (CALL 2. (E *QUO) S) 
       (MOVE 2. -1. P) 
       (CALL 2. (E *MIN) S) 
       (PUSH P 1.) 
       (MOVE 1. -1. P) 
       (CALL 1. (E SUB1) S) 
       (MOVE 2. -2. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. 1.) 
       (MOVE 1. -3. P) 
       (CALL 2. (E *DIF) S) 
       (MOVEI 2. (QUOTE 0.)) 
       (CALL 2. (E *MAX) S) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (MOVE 2. -4. P) 
       (MOVE 1. -3. P) 
       (CALL 2. (E *GREAT) S) 
       (JUMPN 1. TAG7) 
       (MOVE 2. -5. P) 
       (MOVE 1. -3. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. 1.) 
       (MOVE 1. -7. P) 
       (CALL 2. (E *DIF) S) 
       (MOVE 2. -3. P) 
       (PUSH P 1.) 
       (MOVE 1. -7. P) 
       (CALL 2. (E *DIF) S) 
       (PUSH P 1.) 
       (MOVE 1. -7. P) 
       (CALL 1. (E SUB1) S) 
       (MOVE 3. 1.) 
       (POP P 2.) 
       (POP P 1.) 
       (CALL 3. (E FVPART1) S) 
       (MOVEM 1. -1. P) 
 TAG2  (MOVE 1. -1. P) 
       (JUMPE 1. TAG5) 
       (HLRZ@ 1. -1. P) 
       (MOVE 2. -3. P) 
       (MOVEM 1. -2. P) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. 0. P) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. 0. P) 
 TAG3 
 TAG4  (HRRZ@ 1. -1. P) 
       (MOVEM 1. -1. P) 
       (JRST 0. TAG2) 
 TAG5 
 TAG6  (MOVEI 2. (QUOTE 1.)) 
       (MOVE 1. -3. P) 
       (CALL 2. (E *PLUS) S) 
       (MOVEM 1. -3. P) 
       (JRST 0. TAG1) 
 TAG7  (MOVE 1. 0. P) 
       (SUB P (C 5. 0. 5. 0.)) 
 TAG8  (SUB P (C 3. 0. 3. 0.)) 
       (POPJ P) 
       NIL 

(LAP MINLOOPS SUBR) 
       (PUSH P 1.) 
       (MOVEI 1. (QUOTE 0.)) 
       (PUSH P 1.) 
       (PUSH P 1.) 
       (HRRZ@ 1. -2. P) 
       (PUSH P (C 0. 0. (QUOTE 3.) 0.)) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (MOVE 1. -2. P) 
       (JUMPE 1. TAG5) 
       (HLRZ@ 1. -2. P) 
       (MOVEM 1. -1. P) 
       (MOVEI 2. (QUOTE 999999.) S) 
       (MOVE 1. -3. P) 
       (CALL 2. (E *GREAT) S) 
       (JUMPN 1. TAG5) 
       (MOVE 1. -1. P) 
       (CAIN 1. (QUOTE 0.)) 
       (JRST 0. TAG3) 
       (MOVE 2. -4. P) 
       (MOVE 1. -3. P) 
       (CALL 2. (E *GREAT) S) 
       (JUMPE 1. TAG17) 
       (MOVE 1. -3. P) 
       (MOVEM 1. -4. P) 
 TAG17 (MOVE 2. -3. P) 
       (MOVE 1. -1. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. -5. P) 
       (CALL 2. (E *PLUS) S) 
       (MOVEM 1. -5. P) 
 TAG2 
 TAG3  (MOVEI 2. (QUOTE 1.)) 
       (MOVE 1. -3. P) 
       (CALL 2. (E *PLUS) S) 
       (MOVEM 1. -3. P) 
 TAG4  (HRRZ@ 1. -2. P) 
       (MOVEM 1. -2. P) 
       (JRST 0. TAG1) 
 TAG5  (SUB P (C 4. 0. 4. 0.)) 
       (MOVE 2. -1. P) 
       (MOVE 1. 0. P) 
       (CALL 2. (E *DIF) S) 
       (MOVEI 2. (QUOTE 2.)) 
       (CALL 2. (E *QUO) S) 
       (MOVE 2. 1.) 
       (MOVEI 1. (QUOTE 0.)) 
       (SUB P (C 3. 0. 3. 0.)) 
       (JCALL 2. (E *MAX) S) 
       NIL 

(LAP MAXLOOPS SUBR) 
       (PUSH P 1.) 
       (HLRZ@ 1. 1.) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE 0.) 0.)) 
       (HRRZ@ 1. -2. P) 
       (HRRZ@ 1. 1.) 
       (PUSH P (C 0. 0. (QUOTE 2.) 0.)) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (MOVE 1. -1. P) 
       (JUMPN 1. TAG10) 
       (JRST 0. TAG5) 
 TAG10 (HLRZ@ 1. -1. P) 
       (MOVEM 1. 0. P) 
       (MOVEI 2. (QUOTE 99999.) S) 
       (MOVE 1. -2. P) 
       (CALL 2. (E *GREAT) S) 
       (JUMPE 1. TAG13) 
       (JRST 0. TAG5) 
 TAG13 (MOVE 2. 0. P) 
       (MOVEI 1. (QUOTE 0.5) S) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. -2. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. -3. P) 
       (CALL 2. (E *PLUS) S) 
       (MOVEM 1. -3. P) 
 TAG2 
 TAG3  (MOVEI 2. (QUOTE 1.)) 
       (MOVE 1. -2. P) 
       (CALL 2. (E *PLUS) S) 
       (MOVEM 1. -2. P) 
 TAG4  (HRRZ@ 1. -1. P) 
       (MOVEM 1. -1. P) 
       (JRST 0. TAG1) 
 TAG5  (MOVE 1. -3. P) 
       (CALL 1. (E FIX+) S) 
       (MOVE 2. -4. P) 
       (SUB P (C 6. 0. 6. 0.)) 
       (JCALL 2. (E *MIN) S) 
       NIL